home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / Border.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  4.6 KB  |  122 lines
  1. pTempVar <- <primitive 110 14 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r51 16r52 16r21 16rFA 16r03 16rBB 16rF2 16r21 16r67 16r5D 16r66 \
  4.         16r50 16r60 16r50 16r61 16r51 16r62 16r50 16r63 16r51 16r64 \
  5.         16r52 16r65 16r20 16rF3 16rF5] \
  6.     #(  )) >
  7.  
  8. <primitive 112 pTempVar 2  " setBorderPoint:to: " \
  9.   #( #[ 16r54 16r21 16r22 16r0A 16r30 16r22 16r0A 16r31 16r17 16rFA 16r05 \
  10.         16rBB 16rF2 16rF5] \
  11.     #(  )) >
  12.  
  13. <primitive 112 pTempVar 3  " setNextBorderName: " \
  14.   #( #[ 16r53 16r56 16r21 16r17 16rFA 16r04 16rBB 16rF2 16r21 16r66 16rF5 \
  15.        ] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 4  " getNextBorderName " \
  19.   #( #[ 16r52 16r56 16r17 16rFA 16r03 16rBB 16r66 16r16 16rF3 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 5  " setCount: " \
  23.   #( #[ 16r53 16r55 16r21 16r17 16rFA 16r04 16rBB 16rF2 16r21 16r65 16rF5 \
  24.        ] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 6  " getCount " \
  28.   #( #[ 16r52 16r55 16r17 16rFA 16r03 16rBB 16r65 16r15 16rF3 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 7  " setDrawMode: " \
  32.   #( #[ 16r53 16r54 16r21 16r17 16rFA 16r04 16rBB 16rF2 16r21 16r64 16rF5 \
  33.        ] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 8  " getDrawMode " \
  37.   #( #[ 16r52 16r54 16r17 16rFA 16r03 16rBB 16r64 16r14 16rF3 16rF5] \
  38.     #(  )) >
  39.  
  40. <primitive 112 pTempVar 9  " setBorderPens: " \
  41.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r52 16r22 \
  42.         16r17 16rFA 16r04 16rBB 16rF2 16r53 16r53 16r23 16r17 16rFA \
  43.         16r04 16rBB 16rF2 16r22 16r62 16r23 16r63 16rF5] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 10  " getBorderPens " \
  47.   #( #[ 16r52 16r52 16r17 16rFA 16r03 16rBB 16r62 16r52 16r53 16r17 16rFA \
  48.         16r03 16rBB 16r63 16r12 16r13 16r81 16r00 16rF3 16rF5] \
  49.     #( #@  )) >
  50.  
  51. <primitive 112 pTempVar 11  " getStartPoint " \
  52.   #( #[ 16r52 16r50 16r17 16rFA 16r03 16rBB 16r60 16r52 16r51 16r17 16rFA \
  53.         16r03 16rBB 16r61 16r10 16r11 16r81 16r00 16rF3 16rF5] \
  54.     #( #@  )) >
  55.  
  56. <primitive 112 pTempVar 12  " setStartPoint: " \
  57.   #( #[ 16r21 16r0A 16r30 16r60 16r21 16r0A 16r31 16r61 16r53 16r50 16r10 \
  58.         16r17 16rFA 16r04 16rBB 16rF2 16r53 16r51 16r11 16r17 16rFA \
  59.         16r04 16rBB 16rF2 16rF5] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 13  " registerTo: " \
  63.   #( #[ 16r55 16r21 16r17 16rFA 16r03 16rBB 16rF2 16rF5] \
  64.     #(  )) >
  65.  
  66. <primitive 112 pTempVar 14  " remove " \
  67.   #( #[ 16r50 16r17 16rFA 16r02 16rBB 16rF2 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 98 #Border \
  71.   <primitive 97 #Border #Glyph #AmigaTalk:Intuition/Border.st \
  72.    #(  #leftEdge #topEdge #frontPen #backPen #drawMode #count #nextBorderName #name ) \
  73.    #( #new: #setBorderPoint:to: #setNextBorderName: #getNextBorderName #setCount:  \
  74.        #getCount #setDrawMode: #getDrawMode #setBorderPens: #getBorderPens #getStartPoint  \
  75.        #setStartPoint: #registerTo: #remove  ) \
  76.   pTempVar 4 6 >>
  77.  
  78. pTempVar <- <primitive 110 1 >
  79. <primitive 112 pTempVar 1  " makeLine:from:to: " \
  80.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r51 16r22 16r92 16r01 16rF2 \
  81.         16r20 16r52 16r23 16r92 16r01 16rF2 16r20 16rF3 16rF5] \
  82.     #( #new: #setBorderPoint:to:  )) >
  83.  
  84. <primitive 98 #Line \
  85.   <primitive 97 #Line #Border #AmigaTalk:Intuition/Border.st \
  86.    #(  ) \
  87.    #( #makeLine:from:to:  ) \
  88.   pTempVar 4 6 >>
  89.  
  90. pTempVar <- <primitive 110 1 >
  91. <primitive 112 pTempVar 1  " makeTriangle:vert1:vert2:vert3: " \
  92.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r54 16r91 16r01 16rF2 16r20 \
  93.         16r51 16r22 16r92 16r02 16rF2 16r20 16r52 16r23 16r92 16r02 \
  94.         16rF2 16r20 16r53 16r24 16r92 16r02 16rF2 16r20 16r54 16r22 \
  95.         16r92 16r02 16rF2 16r20 16rF3 16rF5] \
  96.     #( #new: #setCount: #setBorderPoint:to:  )) >
  97.  
  98. <primitive 98 #Triangle \
  99.   <primitive 97 #Triangle #Border #AmigaTalk:Intuition/Border.st \
  100.    #(  ) \
  101.    #( #makeTriangle:vert1:vert2:vert3:  ) \
  102.   pTempVar 5 9 >>
  103.  
  104. pTempVar <- <primitive 110 1 >
  105. <primitive 112 pTempVar 1  " makeRectangle:from:to: " \
  106.   #( #[ 16r22 16r0A 16r30 16r74 16r22 16r0A 16r31 16r75 16r23 16r0A 16r30 \
  107.         16r76 16r23 16r0A 16r31 16r77 16r20 16r21 16r91 16r00 16rF2 \
  108.         16r20 16r55 16r91 16r01 16rF2 16r20 16r51 16r24 16r25 16r81 \
  109.         16r02 16r92 16r03 16rF2 16r20 16r52 16r26 16r25 16r81 16r02 \
  110.         16r92 16r03 16rF2 16r20 16r53 16r26 16r27 16r81 16r02 16r92 \
  111.         16r03 16rF2 16r20 16r54 16r24 16r27 16r81 16r02 16r92 16r03 \
  112.         16rF2 16r20 16r55 16r24 16r25 16r81 16r02 16r92 16r03 16rF2 \
  113.         16r20 16rF3 16rF5] \
  114.     #( #new: #setCount: #@ #setBorderPoint:to:  )) >
  115.  
  116. <primitive 98 #Rectangle \
  117.   <primitive 97 #Rectangle #Border #AmigaTalk:Intuition/Border.st \
  118.    #(  ) \
  119.    #( #makeRectangle:from:to:  ) \
  120.   pTempVar 8 15 >>
  121.  
  122.